# Thu Apr  7 22:09:20 2022 edit
# 字符编码：UTF-8
# R 版本：4.2.0 alpha x64 for window 11
# cgh163email@163.com
# 个人笔记不负责任，拎了个梨🍐🍈
#.rs.restartR()
require(leafpop)

rm(list = ls());gc()

library(leaflet)

leaflet() %>%
  addTiles() %>%
  addCircleMarkers(data = breweries91,
                   popup = popupTable(breweries91))
# exThu Apr  7 22:10:39 2022 ------------------------------
leaflet() |>
  addCircleMarkers(
    data = iris,
lat = ~Sepal.Length,lng = ~Sepal.Width,color = ~Species
  )
# Thu Apr  7 22:16:38 2022 --

leaflet() |>
  addCircleMarkers(
    data = iris,
lat = ~Sepal.Length,lng = ~Sepal.Width,color = ~Species
,popup = popupTable(iris)
)
#end Thu Apr  7 22:18:02 2022 --

